      SUBROUTINE OUT1(WORD,IN1,IN2,ARRAY)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION ARRAY(1)
      IW=6
      WRITE(IW,10)WORD,IN1,(ARRAY(L),L=IN1,IN2)
   10 FORMAT(1X,A8,I3,')',3D16.8,19X/(4D16.8))
      RETURN
      END
